home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 11
/
Cream of the Crop 11-1.iso
/
program
/
knobvb25.zip
/
VB.ZIP
/
KEXAMPLE.FRM
< prev
next >
Wrap
Text File
|
1996-01-18
|
27KB
|
797 lines
VERSION 2.00
Begin Form Examples
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Knob Examples"
ClientHeight = 6465
ClientLeft = 1020
ClientTop = 1875
ClientWidth = 9090
Height = 6870
Left = 960
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 431
ScaleMode = 3 'Pixel
ScaleWidth = 606
Top = 1530
Width = 9210
Begin Frame Frame2
BackColor = &H00C0C0C0&
Caption = "Mixer"
Height = 3420
Left = 3000
TabIndex = 8
Top = 2940
Width = 5955
Begin KNOB Knob3
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 1
BorderType = 1 ' 1 - Bevel
BorderWidth = 1
Digital = 0 'False
DigitalColor = &H00000000&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 1515
Index = 7
KnobColor = &H00808080&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 0
KnobRadius = 0.9
KnobSnap = 0 'False
KnobSnapIncrement= 1
KnobStyle = 2 ' 2 - Complex
KnobUserDefined = ""
KnobValue = 0
Left = 4440
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
TabIndex = 16
Top = 1800
Value = 0
Width = 1425
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:0000
End
Begin KNOB Knob3
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 1
BorderType = 1 ' 1 - Bevel
BorderWidth = 1
Digital = 0 'False
DigitalColor = &H00000000&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 1515
Index = 6
KnobColor = &H00808080&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 0
KnobRadius = 0.9
KnobSnap = 0 'False
KnobSnapIncrement= 1
KnobStyle = 2 ' 2 - Complex
KnobUserDefined = ""
KnobValue = 0
Left = 3000
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
TabIndex = 15
Top = 1800
Value = 0
Width = 1425
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:00DE
End
Begin KNOB Knob3
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 1
BorderType = 1 ' 1 - Bevel
BorderWidth = 1
Digital = 0 'False
DigitalColor = &H00000000&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 1515
Index = 5
KnobColor = &H00808080&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 0
KnobRadius = 0.9
KnobSnap = 0 'False
KnobSnapIncrement= 1
KnobStyle = 2 ' 2 - Complex
KnobUserDefined = ""
KnobValue = 0
Left = 1560
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
TabIndex = 14
Top = 1800
Value = 0
Width = 1425
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:01BC
End
Begin KNOB Knob3
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 1
BorderType = 1 ' 1 - Bevel
BorderWidth = 1
Digital = 0 'False
DigitalColor = &H00000000&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 1515
Index = 4
KnobColor = &H00808080&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 0
KnobRadius = 0.9
KnobSnap = 0 'False
KnobSnapIncrement= 1
KnobStyle = 2 ' 2 - Complex
KnobUserDefined = ""
KnobValue = 0
Left = 120
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
TabIndex = 13
Top = 1800
Value = 0
Width = 1425
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:029A
End
Begin KNOB Knob3
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 1
BorderType = 1 ' 1 - Bevel
BorderWidth = 1
Digital = 0 'False
DigitalColor = &H00000000&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 1515
Index = 0
KnobColor = &H00808080&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 0
KnobRadius = 0.9
KnobSnap = 0 'False
KnobSnapIncrement= 1
KnobStyle = 2 ' 2 - Complex
KnobUserDefined = ""
KnobValue = 0
Left = 120
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
TabIndex = 12
Top = 240
Value = 0
Width = 1425
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:0378
End
Begin KNOB Knob3
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 1
BorderType = 1 ' 1 - Bevel
BorderWidth = 1
Digital = 0 'False
DigitalColor = &H00000000&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 1515
Index = 3
KnobColor = &H00808080&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 0
KnobRadius = 0.9
KnobSnap = 0 'False
KnobSnapIncrement= 1
KnobStyle = 2 ' 2 - Complex
KnobUserDefined = ""
KnobValue = 0
Left = 4440
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
TabIndex = 11
Top = 240
Value = 0
Width = 1425
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:0456
End
Begin KNOB Knob3
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 1
BorderType = 1 ' 1 - Bevel
BorderWidth = 1
Digital = 0 'False
DigitalColor = &H00000000&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 1515
Index = 2
KnobColor = &H00808080&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 0
KnobRadius = 0.9
KnobSnap = 0 'False
KnobSnapIncrement= 1
KnobStyle = 2 ' 2 - Complex
KnobUserDefined = ""
KnobValue = 0
Left = 3000
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
TabIndex = 10
Top = 240
Value = 0
Width = 1425
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:0534
End
Begin KNOB Knob3
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 1
BorderType = 1 ' 1 - Bevel
BorderWidth = 1
Digital = 0 'False
DigitalColor = &H00000000&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 1515
Index = 1
KnobColor = &H00808080&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 0
KnobRadius = 0.9
KnobSnap = 0 'False
KnobSnapIncrement= 1
KnobStyle = 2 ' 2 - Complex
KnobUserDefined = ""
KnobValue = 0
Left = 1560
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
TabIndex = 9
Top = 240
Value = 0
Width = 1425
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:0612
End
End
Begin Timer Timer1
Interval = 100
Left = 5865
Top = 6690
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Color Control"
Height = 2775
Left = 5700
TabIndex = 5
Top = 60
Width = 3225
Begin KNOB Knob4
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 1 ' 1 - Raised
BevelOuter = 0 ' 0 - None
BevelWidth = 1
BorderType = 0 ' 0 - None
BorderWidth = 0
Digital = -1 'True
DigitalColor = &H0000FF00&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 1050
Index = 0
KnobColor = &H000000FF&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 0
KnobRadius = 1.1
KnobSnap = 0 'False
KnobSnapIncrement= 0
KnobStyle = 0 ' 0 - Cicular
KnobUserDefined = ""
KnobValue = 128
Left = 60
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
TabIndex = 4
Top = 1380
Value = 0
Width = 1050
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:06F0
End
Begin KNOB Knob4
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 1 ' 1 - Raised
BevelOuter = 0 ' 0 - None
BevelWidth = 1
BorderType = 0 ' 0 - None
BorderWidth = 0
Digital = -1 'True
DigitalColor = &H00FF0000&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 1050
Index = 1
KnobColor = &H0000FF00&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 0
KnobRadius = 1.1
KnobSnap = 0 'False
KnobSnapIncrement= 0
KnobStyle = 0 ' 0 - Cicular
KnobUserDefined = ""
KnobValue = 128
Left = 1065
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
TabIndex = 7
Top = 1380
Value = 0
Width = 1050
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:0766
End
Begin KNOB Knob4
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 1 ' 1 - Raised
BevelOuter = 0 ' 0 - None
BevelWidth = 1
BorderType = 0 ' 0 - None
BorderWidth = 0
Digital = -1 'True
DigitalColor = &H000000FF&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 1050
Index = 2
KnobColor = &H00FF0000&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 0
KnobRadius = 1.1
KnobSnap = 0 'False
KnobSnapIncrement= 0
KnobStyle = 0 ' 0 - Cicular
KnobUserDefined = ""
KnobValue = 128
Left = 2100
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
TabIndex = 6
Top = 1380
Value = 0
Width = 1050
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:07DC
End
Begin Label Label3
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 1065
Left = 120
TabIndex = 2
Top = 240
Width = 3030
End
End
Begin KNOB Knob6
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 1 ' 1 - Raised
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderType = 0 ' 0 - None
BorderWidth = 2
Digital = -1 'True
DigitalColor = &H00C00000&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = -0.31
DigitalY = -1.19
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 1
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 2550
KnobColor = &H00800000&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 10
KnobRadius = 0.7
KnobSnap = 0 'False
KnobSnapIncrement= 0
KnobStyle = 0 ' 0 - Cicular
KnobUserDefined = ""
KnobValue = 18
Left = 120
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 2 ' 2 - Center
OutlineColor = &H00FF0000&
OutlineTitle = "Multi-Turn Example"
OutlineWidth = 2
Radius = 0
TabIndex = 3
Top = 120
Value = 0
Width = 2580
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:0852
End
Begin KNOB Knob2
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00C0C0C0&
BevelInner = 1 ' 1 - Raised
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderType = 2 ' 2 - Outline
BorderWidth = 2
Digital = 0 'False
DigitalColor = &H00000000&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0
FontID = 0
FrameColor = &H00000000&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 3540
KnobColor = &H00808080&
KnobMultiTurn = 0 'False
KnobMultiTurnValue= 0
KnobRadius = 0.7
KnobSnap = 0 'False
KnobSnapIncrement= 1
KnobStyle = 0 ' 0 - Cicular
KnobUserDefined = ""
KnobValue = 0.2
Left = 60
MarkUserDefined = "-100,-500, 100,-500, 100,-2200, -100,-2200"
MouseControl = -1 'True
OutlineAlign = 2 ' 2 - Center
OutlineColor = &H00000080&
OutlineTitle = "Balance"
OutlineWidth = 0
Radius = 0
TabIndex = 1
Top = 2940
Value = 0
Width = 2865
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:0998
End
Begin KNOB Knob1
Angle = 0
AutoRedraw = -1 'True
AVersion = 2.5
BackgroundColor = &H00808080&
BackgroundPicture= KEXAMPLE.FRX:0B1E
BevelInner = 1 ' 1 - Raised
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderType = 0 ' 0 - None
BorderWidth = 2
Digital = -1 'True
DigitalColor = &H00C0C0C0&
DigitalDecimals = 0
DigitalFontID = 0
DigitalX = 0
DigitalY = 0.05
FontID = 0
FrameColor = &H00404040&
FrameScaleX = 0
FrameScaleY = 0
FrameStyle = 0 ' 0 - None
Height = 2760
KnobColor = &H00404040&
KnobMultiTurn = -1 'True
KnobMultiTurnValue= 100
KnobRadius = 0.6
KnobSnap = 0 'False
KnobSnapIncrement= 0
KnobStyle = 3 ' 3 - Faucet
KnobUserDefined = ""
KnobValue = 1200
Left = 2760
MarkUserDefined = ""
MouseControl = -1 'True
OutlineAlign = 0 ' 0 - Left
OutlineColor = &H00000000&
OutlineTitle = ""
OutlineWidth = 0
Radius = 0
TabIndex = 0
Top = 60
Value = 0
Width = 2775
XScale = 0
YScale = 0
ZLoad = KEXAMPLE.FRX:50F8
End
End
Sub Form_Load ()
label3.BackColor = RGB(knob4(0).KnobValue, knob4(1).KnobValue, knob4(2).KnobValue)
End Sub
Sub HScroll1_Change ()
knob6.KnobValue = hscroll1
label1 = hscroll1
End Sub
Sub HScroll1_Scroll ()
knob6.KnobValue = hscroll1
label1 = hscroll1
End Sub
Sub Knob4_Change (Index As Integer)
label3.BackColor = RGB(knob4(0).KnobValue, knob4(1).KnobValue, knob4(2).KnobValue)
End Sub
Sub Knob4_Turn (Index As Integer)
label3.BackColor = RGB(knob4(0).KnobValue, knob4(1).KnobValue, knob4(2).KnobValue)
End Sub
Sub Knob6_Change ()
hscroll1 = knob6.KnobValue
label1 = hscroll1
End Sub
Sub Knob6_Click ()
hscroll1 = knob6.KnobValue
label1 = hscroll1
End Sub
Sub Knob6_Turn ()
hscroll1 = knob6.KnobValue
label1 = hscroll1
End Sub
Sub Timer1_Timer ()
Dim a As Double
Randomize
a = knob4(0).KnobValue + 2 * Rnd - 1
If a < knob4(0).ScaleMaxValue And a > knob4(0).ScaleMinValue Then knob4(0) = a
a = knob4(1).KnobValue - 2 * Rnd + 1
If a < knob4(0).ScaleMaxValue And a > knob4(0).ScaleMinValue Then knob4(1) = a
a = knob4(2).KnobValue - 2 * Rnd + 1
If a < knob4(0).ScaleMaxValue And a > knob4(0).ScaleMinValue Then knob4(2) = a
label3.BackColor = RGB(knob4(0).KnobValue, knob4(1).KnobValue, knob4(2).KnobValue)
a = knob1.KnobValue + 2 * Rnd - 1
If a < knob1.ScaleMaxValue And a > knob1.ScaleMinValue Then knob1 = a
End Sub